home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib05.dsk / REMPOKE LISTING #2.bas < prev    next >
BASIC Source File  |  2023-02-26  |  780b  |  12 lines
  1. 10  REM  **** REMPOKE LISTING #2 ****
  2. 63000  REM  FIND FIRST NON-TOKEN CHARACTER IN LINE
  3. 63010  INPUT "LINE NUMBER: ";LN: INVERSE : PRINT " SEARCHING ";: NORMAL 
  4. 63020  FOR I =  PEEK(103) + PEEK(104) *256 TO  PEEK(175) + PEEK(176) *256
  5. 63030  IF  PEEK(I -1) *256 + PEEK(I -2) = LN  THEN  HTAB 1: CALL  -958: GOTO 63060
  6. 63040  NEXT I
  7. 63050  HTAB 1: CALL  -958: PRINT "LINE NUMBER "LN" NOT FOUND.": END 
  8. 63060  IF  PEEK(I) <128  THEN  PRINT "LEADING CHAR = "I" (DEC LOCATION OF " CHR$( PEEK(I))")": END 
  9. 63070  PRINT "LEADING CHARACTER IS A KEYWORD.": PRINT "TRY AGAIN!"
  10. 63080  END 
  11. 63090  REM  TO CREATE EXEC FILE TYPE 'RUN 63100'
  12. 63100 D$ =  CHR$(13) + CHR$(4): INPUT "NAME OF TEXTFILE: ";F$: PRINT D$"OPEN"F$;D$"DELETE"F$;D$"OPEN"F$;D$"WRITE"F$: LIST 63000,63070: PRINT D$"CLOSE"